(define file?
  (λ (path)
    (access? path F_OK)))


(define readable?
  (λ (path)
    (access? path R_OK)))


(define readable-file?
  (λ (path)
    (and (readable? path)
         (file? path))))